#!/usr/bin/Rscript

library(findMFDIA)

source("../R/SQLAccess.R")
fpath="/media/data/testdata/pepmix"
dir(fpath)
names=grep("sqlite$",dir(fpath),value=T)
names

fx <- file.path(fpath,names[1])
fx

con <- createConnection(fx)



source("../R/pseudospectra.R")

peak <- c(RT=3000.,MZ=800.)
tmp<-.getPseudoSpec(con,peak,errorRT=10.5)
tmp[,"MZ"]
tmp[,"RT"]
.getPseudoSpec
           
